This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
~Laura Nimvelugenoden 16.Jan.04 03:17 PM a Web browser Domino Designer All Releases All Platforms
I have a simple LS program that reads an ASCII text file and produces a number of documents to be sent e-mail to Notes users....
It ceates the documents locally in the DB (which I plan to not do when finished) and fails to send the documents! "Invalid or Nonexistant Document" is the message on: Call doc.Send(True)
Also the form is NOT getting saved in the document.... HELP!
======================
Redim Infox(20) As String
Set session = New NotesSession
Set db = session.CurrentDatabase
fileNum% = Freefile()
counter% = 0
Open "c:\lotus\notes\data\FILE.txt" For Input As fileNum%
countRec% = 0
Do While Not Eof(fileNum%)
Line Input #fileNum%, InData$
counter% = counter% + 1
If Len(InData) > 100 Then
If counter% = 1 Then
Set doc = New NotesDocument(db) Call doc.ReplaceItemValue "Form",Left$(InData,3))
Call doc.ReplaceItemValue("SendTo","Special User/Server")
Call doc.ReplaceItemValue("From","Special User/Server")
Call doc.ReplaceItemValue("ReturnReceipt","0")
Infox(counter%-1) = Mid$(InData,56,114)
Call doc.ReplaceItemValue("Detail",Mid$(InData,56,114))
Else
Infox(counter%-1) = Mid$(InData,56,114)
End If
countRec% = countRec% + 1
Elseif Left$(InData,5) = "$$$$$" Then
Call doc.ReplaceItemValue("Detail",Infox)
Call doc.save(True, False) 'WORKS!
Call doc.Send(True, "Special User/Server") 'PROBLEM
Redim Infox(20)
countRec% = 0
counter% = 0
Else
countRec% = 0
End If
Loop
Close fileNum%